<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>5</cardCount>
<cardID>2951</cardID>
<listID>2346</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on closeStackif cd fld "Poop" of cd 2 is not empty thenanswer "What do you want to do with the script on report card?"¬with "Delete it" or "Save it"if it is "Delete it" thenclearReportend ifif it is "Save it" thensaveReportclearReportend ifend ifif the freesize of this stack > 10240 thenanswer "There is over 10K free in this stack. Should I compact"&¬"myself before leaving?" with "Compact" or "Don't"if it is "Compact" thenif the diskSpace < the size of this stack thenanswer "Sorry, there's not enough disk space." with "Exit"pass closeStackelsedoMenu Compact Stackend ifend ifend ifend closeStackon clearReportput empty into cd fld "Poop" of cd 2end clearReporton saveReportask file "Save report as:"put it into filename1open file filename1set cursor to watchwrite cd fld "Poop" of cd 2 to file filename1close file filename1end saveReport</script>
